home *** CD-ROM | disk | FTP | other *** search
/ Ahoy: Best of 1985 / Ahoy_Best_of_1985_1986_Double_L.d64 / gameloader d'85 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  869b  |  31 lines
  1. 1 rem ************************
  2. 2 rem *      gameloader      *
  3. 3 rem *     by tim brown     *
  4. 4 rem ************************
  5. 5 poke53281,12:poke53280,12:print"[147][144]"
  6. 10 print"basic loader construction"
  7. 20 input"enter program name";na$
  8. 30 input"enter address to sys";ad$
  9. 40 nx$=left$(na$,1)+"x":ad=val(ad$)
  10. 50 print"insert program disk into drive"
  11. 60 print"y/n"
  12. 70 geta$:ifa$<>"y"anda$<>"n"then70
  13. 80 ifa$="n"thengosub9000:goto50
  14. 100 print"[147]now constructing loader"
  15. 110 open1,8,15:print#1,"r0:"+nx$+"="+na$
  16. 115 input#1,e,e$:ife>0thenprint"[147]error !":close1:goto10
  17. 117 close1:print"[147]":print"new"
  18. 120 print"100 ifa=0thena=1:load"chr$(34)nx$chr$(34)",8,1"
  19. 130 print"110 print"chr$(34)"ready"chr$(34)
  20. 140 print"130 sys"ad":new"
  21. 145 print"save"chr$(34)na$chr$(34)",8"
  22. 150 print"";:forr=631to644:poker,13:next
  23. 160 poke198,13:end
  24. 9000 s=54272:fore=stos+28:pokee,0:next
  25. 9010 poke54296,15:poke54277,0:poke54278,240
  26. 9020 poke54275,1:poke54274,0
  27. 9030 poke54273,33:poke54272,135:poke54276,65
  28. 9040 fort=1to500:next:poke54276,64
  29. 9050 poke54296,0
  30. 9090 return
  31.